10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
20 T=VAL(MID$(D$,1,2))
30 M=VAL(MID$(D$,3,2))
40 J=VAL(MID$(D$,5))
50 IF M<1 OR M>12 THEN RUN
60 IF T<1 OR T>31 THEN RUN
70 GOSUB1000
80 PRINT "JULIANISCH: "JD
90 END
1000 REM KALENDER -> JULIANISCH
1010 IF M>2 THEN M=M-3:GOTO 1030
1020 M=M+9:J=J-1
1030 JH=INT(J/100):JA=J-100*JH
1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
1050 JD=JD+INT((153*M+2)/5)+T
1060 RETURN